home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 4.2 / arexx / editor / oz / morenews.rexx < prev    next >
OS/2 REXX Batch file  |  1998-04-16  |  949b  |  43 lines
  1. /* This displays doc file in "More" window */
  2.  
  3. /* By Aussie - ©1995 Michael Holten */
  4. call remlib('ToasterARexx.port')
  5. call remlib('PROJECT_REXX_PORT')
  6.  
  7. call addlib('PROJECT_REXX_PORT' , 0)
  8. call addlib('ToasterARexx.port' , 0)
  9.  
  10. if ~exists('c:more') then do
  11.   call req_tell("Sorry!","   This script could not find the"," program 'more' in your C: drawer.")
  12.   call quit()
  13.   end
  14.  
  15. test=Switcher(TOWB)
  16.  
  17. if test~='OK' then do
  18.   call req_tell("Sorry!","     This script expected to find ","    your workbench screen open.")
  19.   call quit()
  20.   end
  21.  
  22. filename="oz_news"
  23. path="toaster:arexx/editor/oz/"
  24. name=path||filename
  25.  
  26. if ~exists(name) then do
  27.    path=currentpath()
  28.    name=path||"/"||filename
  29.    end
  30.  
  31. if ~exists(name) then do
  32.   call req_tell("Sorry!" name,"   This script could not find the","    OZ_docs document files")
  33.   call quit()
  34.   end
  35.  
  36. address command "run c:more " name
  37.  
  38. quit:
  39. call remlib('ToasterARexx.port')
  40. call remlib('PROJECT_REXX_PORT')
  41.  
  42. exit
  43.